home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-12-07 | 10.9 KB |
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 20 20 | 20 20 57 45 4e 44 0d 0a |...... | WEND..|
|00000010| 20 20 20 20 20 20 20 20 | 20 20 20 20 4d 4f 55 53 | | MOUS|
|00000020| 45 45 58 49 54 0d 0a 20 | 20 20 20 20 20 20 20 20 |EEXIT.. | |
|00000030| 20 20 20 56 49 44 45 4f | 4d 4f 44 45 53 45 54 20 | VIDEO|MODESET |
|00000040| 56 4d 4f 44 45 0d 0a 20 | 20 20 20 20 20 20 20 20 |VMODE.. | |
|00000050| 20 20 20 45 4e 44 0d 0a | 0a 0a 0a 0a 0a 0a 0a 0a | END..|........|
|00000060| 0a 0a 0a 0a 0a 0a 0a 0a | 0a 0a 0a 0a 0a 0a 0a 0a |........|........|
|00000070| 0a 0a 0a 0a 0a 0a 0a 0a | 0a 0a 0a 0a 0a 0a 0a 0a |........|........|
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000c0| 20 20 20 20 20 20 20 20 | 20 38 36 0d 0c 0d 0a 0a | | 86.....|
|000000d0| 0a 0a 0a 0a 20 20 20 20 | 20 20 20 20 20 20 4d 4f |.... | MO|
|000000e0| 55 53 45 43 55 52 53 4f | 52 44 45 46 41 55 4c 54 |USECURSO|RDEFAULT|
|000000f0| 0d 0a 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 50 |... | P|
|00000100| 52 4f 54 4f 54 59 50 45 | 0d 0a 0a 20 20 20 20 20 |ROTOTYPE|... |
|00000110| 20 20 20 20 20 20 20 53 | 55 42 20 4d 4f 55 53 45 | S|UB MOUSE|
|00000120| 43 55 52 53 4f 52 44 45 | 46 41 55 4c 54 20 28 29 |CURSORDE|FAULT ()|
|00000130| 0d 0a 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 49 |... | I|
|00000140| 4e 50 55 54 0d 0a 0a 20 | 20 20 20 20 20 20 20 20 |NPUT... | |
|00000150| 20 20 20 6e 6f 20 69 6e | 70 75 74 20 70 61 72 61 | no in|put para|
|00000160| 6d 65 74 65 72 73 0d 0a | 0a 20 20 20 20 20 20 20 |meters..|. |
|00000170| 20 20 20 20 20 4f 55 54 | 50 55 54 0d 0a 0a 20 20 | OUT|PUT... |
|00000180| 20 20 20 20 20 20 20 20 | 20 20 6e 6f 20 76 61 6c | | no val|
|00000190| 75 65 20 72 65 74 75 72 | 6e 65 64 0d 0a 0a 20 20 |ue retur|ned... |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 55 53 41 47 45 0d | | USAGE.|
|000001b0| 0a 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 4d 4f |.. | MO|
|000001c0| 55 53 45 43 55 52 53 4f | 52 44 45 46 41 55 4c 54 |USECURSO|RDEFAULT|
|000001d0| 20 64 65 66 69 6e 65 73 | 20 74 68 65 20 6d 6f 75 | defines| the mou|
|000001e0| 73 65 20 63 75 72 73 6f | 72 20 74 6f 20 62 65 20 |se curso|r to be |
|000001f0| 61 20 73 6d 61 6c 6c 0d | 0a 20 20 20 20 20 20 20 |a small.|. |
|00000200| 2c 00 07 4b 24 b7 c5 d4 | 03 d1 b0 58 51 29 e5 b4 |,..K$...|...XQ)..|
|00000210| 94 f0 f6 c1 c4 b4 85 a4 | 54 d9 10 2c 01 d4 aa 85 |........|T..,....|
|00000220| a4 58 39 d4 f4 85 a4 5c | 39 d4 14 55 9a b6 f3 60 |.X9....\|9..U...`|
|00000230| 39 d4 34 61 d4 64 39 d4 | 55 54 61 d4 68 39 d4 74 |9.4a.d9.|UTa.h9.t|
|00000240| 61 d4 6c 39 d4 55 94 61 | d4 70 39 d4 b4 61 d4 74 |a.l9.U.a|.p9..a.t|
|00000250| d9 10 50 54 f1 78 c1 8c | 80 b7 30 b2 8b e0 b3 8f |..PT.x..|..0.....|
|00000260| e0 55 b4 93 e0 b5 97 e0 | b6 9b e0 b7 a3 e2 d4 70 |.U......|.......p|
|00000270| 80 a7 e2 b8 ad e0 02 89 | 20 c8 c1 e3 08 8d f8 73 |........| ......s|
|00000280| 4b 90 ed 62 08 3c 10 24 | f5 dd 89 20 14 09 ed 89 |K..b.<.$|... ....|
|00000290| 20 18 1d ed 89 20 49 1c | 31 ed 89 20 20 45 ed 89 | .... I.|1.. E..|
|000002a0| 20 24 59 ed 92 89 20 28 | 6d ed 89 20 2c 81 ed 89 | $Y... (|m.. ,...|
|000002b0| 20 30 24 95 ed 89 20 a0 | a9 ed 89 20 a4 bd ed 89 | 0$... .|... ....|
|000002c0| 20 49 a8 d1 ed 89 20 ac | e5 ed 89 20 b0 f9 ed 92 | I.... .|... ....|
|000002d0| 89 20 34 0d fd 89 20 b4 | 21 fd 89 20 b8 24 35 fd |. 4... .|!.. .$5.|
|000002e0| 89 20 bc 49 fd 89 20 c0 | 5d fd 89 20 a9 38 71 fd |. .I.. .|].. .8q.|
|000002f0| 89 20 3c 85 fc e8 69 80 | 14 aa f9 50 18 05 10 1c |. <...i.|...P....|
|00000300| 99 80 20 9d 80 0a fc 0d | b0 d0 83 40 14 25 38 40 |.. .....|...@.%8@|
|00000310| 00 e2 e8 a0 10 bc d1 b0 | f0 63 00 a5 8f 2a 24 0d |........|.c...*$.|
|00000320| b0 b8 f0 8f ac f0 e7 d2 | 18 6d 00 a8 f5 1d ee 09 |........|.m......|
|00000330| d0 40 00 06 23 00 e6 f7 | 24 83 68 24 83 e0 72 61 |.@..#...|$.h$..ra|
|00000340| d0 02 85 00 60 9d 8a 00 | ef 10 80 00 25 80 20 2b |....`...|....%. +|
|00000350| 08 c4 df 01 13 00 20 54 | 8c 63 4f 8c ef 83 00 f8 |...... T|.cO.....|
|00000360| 31 3c 40 17 ff ff 5b 19 | 24 a8 80 ac 0c 4d 00 08 |1<@...[.|$....M..|
|00000370| 4d 00 6c fa 30 9f 20 59 | ac c4 21 25 18 36 61 de |M.l.0. Y|..!%.6a.|
|00000380| 8a 20 9d 08 8d 20 e1 a0 | 2b 08 3f 02 01 f1 ff 20 |. ... ..|+.?.... |
|00000390| 50 3c 01 8c 61 54 54 56 | 0c 08 d8 69 80 1c ad f2 |P<..aTTV|...i....|
|000003a0| b0 0b 60 5f a4 af 25 80 | a0 1b a0 a6 ff 50 db a7 |..`_..%.|.....P..|
|000003b0| af ee 60 82 61 f9 90 25 | 48 ae c1 a1 41 10 25 47 |..`.a..%|H...A.%G|
|000003c0| a0 72 f9 90 05 0a 69 10 | 77 f9 90 08 69 11 ed 60 |.r....i.|w...i..`|
|000003d0| 1d 10 cf f2 12 f0 d1 80 | 6d 00 fc b1 0a 5d 92 41 |........|m....].A|
|000003e0| a0 e5 04 77 01 03 05 37 | b0 00 10 02 f5 08 ef 09 |...w...7|........|
|000003f0| 01 05 24 08 11 01 00 03 | fa c7 80 04 fb 90 10 26 |..$.....|.......&|
|00000400| 5e 00 60 ff 10 ff bf 0b | 24 fc ff 07 ff 24 fe ff |^.`.....|$....$..|
|00000410| 06 24 d5 ff 6e 6b 24 4a | 2d 90 51 31 9c 50 82 42 |.$..nk$J|-.Q1.P.B|
|00000420| 97 ff 02 00 af 30 04 00 | e0 51 2f 02 00 a5 34 bd |.....0..|.Q/...4.|
|00000430| 00 10 9c b0 a7 50 f7 a5 | 34 80 f5 00 24 28 a6 00 |.....P..|4...$(..|
|00000440| df 24 40 07 01 43 5d 92 | 03 82 f7 00 c0 b8 5f 10 |.$@..C].|......_.|
|00000450| 00 53 00 80 87 a5 34 3d | 69 14 90 11 f4 11 84 13 |.S....4=|i.......|
|00000460| b9 3c 5f 10 6e 70 40 a5 | 34 35 95 15 b1 10 59 33 |.<_.np@.|45....Y3|
|00000470| 81 14 ac 10 51 01 a1 b0 | 2e 69 14 3e cc 11 00 40 |....Q...|.i.>...@|
|00000480| 08 35 2b c1 1c d3 90 be | d3 16 24 40 0b 01 23 c1 |.5+.....|..$@..#.|
|00000490| 16 40 ae cb 10 0a 24 1e | d1 16 0a 23 40 a5 a3 34 |.@....$.|...#@..4|
|000004a0| 1b 01 2c 1b 70 13 26 10 | 65 10 13 f6 81 15 10 ac |..,.p.&.|e.......|
|000004b0| 5f 10 80 51 00 10 a7 a5 | 34 0d 95 15 51 20 0b 81 |_..Q....|4...Q ..|
|000004c0| 14 40 3b 00 ad 5f 10 a0 | 51 40 65 10 cc f2 40 6d |.@;.._..|Q@e...@m|
|000004d0| 10 70 21 b4 61 1c 11 d4 | 13 1e 11 10 4f b0 fb 60 |.p!.a...|....O..`|
|000004e0| 50 a4 00 8f a7 ff 80 54 | f8 38 11 98 21 ac 00 8f |P......T|.8..!...|
|000004f0| a4 01 07 24 ab d3 1c 22 | 71 a8 ff 50 a4 43 80 a8 |...$..."|q..P.C..|
|00000500| e0 fb c0 d2 b0 65 00 54 | 22 e1 02 0e 3c 70 f8 25 |.....e.T|"...<p.%|
|00000510| 00 50 91 28 01 01 00 cf | 25 70 eb 9d 2f 4f 00 88 |.P.(....|%p../O..|
|00000520| 57 30 80 ac 1c 62 ed 20 | 08 ed 20 42 40 5b 00 83 |W0...b. |.. B@[..|
|00000530| ac 38 83 f2 e6 f3 28 09 | 08 a8 f5 25 28 80 00 ef |.8....(.|...%(...|
|00000540| 06 00 a0 54 98 70 00 2b | 0c a2 9a b2 00 30 21 e4 |...T.p.+|.....0!.|
|00000550| f1 28 31 f1 0d b0 18 b4 | 99 80 44 c0 10 44 30 8f |.(1.....|..D..D0.|
|00000560| 0e b5 60 ff ff ff 02 24 | 0c 00 ae 8c 00 4f 40 cf |..`....$|.....O@.|
|00000570| 31 0a 61 10 bc d1 6a 2d | 30 17 10 00 a4 b3 60 40 |1.a...j-|0.....`@|
|00000580| b7 62 e8 61 54 31 01 02 | cd f4 bc d1 e4 fd ac f1 |.b.aT1..|........|
|00000590| 2c 31 94 a1 8c 39 6c 98 | 01 1c 32 38 80 8f 60 e2 |,1...9l.|..28..`.|
|000005a0| 8c a8 50 fd 24 2c 01 03 | 00 4e 30 1e 00 7f c1 15 |..P.$,..|.N0.....|
|000005b0| 08 01 4f 30 1d 61 10 d7 | 08 00 eb f3 30 e5 a3 60 |..O0.a..|....0..`|
|000005c0| f8 8c b7 23 30 05 eb f0 | c0 58 dc 31 10 af 00 e4 |...#0...|.X.1....|
|000005d0| 8c 28 b1 00 1c 9d 80 db | a5 1f 22 71 a0 fb 31 43 |.(......|.."q..1C|
|000005e0| 80 a3 c7 d0 a7 ff 8f 0a | 00 46 54 0c 00 e9 fd 8c |........|.FT.....|
|000005f0| c0 31 80 00 59 30 09 00 | 77 20 13 fd 85 b0 24 40 |.1..Y0..|w ....$@|
|00000600| 41 8f 60 cb e8 ac d4 60 | 10 dc 31 18 41 ff ff 7d |A.`....`|..1.A..}|
|00000610| 03 bf 80 2a 35 0c 00 ea | 53 00 eb eb 8c 60 10 ac |...*5...|S....`..|
|00000620| 8c 61 00 00 eb 91 ac 8c | 35 0c 31 a8 f5 ea bd f4 |.a......|5.1.....|
|00000630| 20 01 ac 7f 9d ce 81 04 | 00 c0 51 8c 31 53 13 0d | .......|..Q.1S..|
|00000640| be f3 8c 39 d0 69 80 2c | f9 50 55 28 7d 80 24 81 |...9.i.,|.PU(}.$.|
|00000650| 80 20 85 80 1c 15 60 e5 | 18 8d 80 14 1d 60 1c 51 |. ....`.|.....`.Q|
|00000660| e0 9a 42 4f 24 25 98 80 | cf 22 24 02 80 ae 80 5d |..BO$%..|."$....]|
|00000670| 90 2e 01 c2 01 1f 5c 60 | 25 57 90 7f 01 00 15 24 |......\`|%W.....$|
|00000680| ff ff 11 57 30 ff 02 8e | 83 00 4f 30 13 00 5d e0 |...W0...|..O0..].|
|00000690| 47 c2 08 00 75 1b 72 ca | 0d b0 0e 9c b1 0d 00 51 |G...u.r.|.......Q|
|000006a0| 9b a3 c9 80 f0 01 f8 73 | 3f 60 16 02 00 58 30 d4 |.......s|?`...X0.|
|000006b0| 60 40 20 e6 02 57 02 00 | 83 40 b9 61 a0 20 02 ee |`@ ..W..|.@.a. ..|
|000006c0| 64 71 60 9d 39 3f 80 10 | 26 2b 6f 08 30 03 e6 79 |dq`.9?..|&+o.0..y|
|000006d0| 02 02 8e e4 41 8f 04 00 | 75 56 28 00 37 50 ce f1 |....A...|uV(.7P..|
|000006e0| 40 49 02 64 51 b8 40 8f | b4 40 3b 80 b2 3f 80 95 |@I.dQ.@.|.@;..?..|
|000006f0| b3 43 80 b4 c7 d0 b5 4b | 80 8e 33 30 fc ed f8 20 |.C.....K|..30... |
|00000700| 01 10 a2 ce 8d 2b 08 5d | 8e cb f0 20 14 09 4d 94 |.....+.]|... ..M.|
|00000710| bc e5 20 fd 1a 79 35 01 | 18 3c 21 c0 04 df 03 14 |.. ..y5.|.<!.....|
|00000720| a2 18 83 bc 90 33 10 7e | 6d 70 09 00 08 24 3c 1a |.....3.~|mp...$<.|
|00000730| be f3 39 92 2d 32 fc f0 | 00 40 54 2c 01 10 c6 e4 |..9.-2..|.@T,....|
|00000740| 61 04 2c 01 06 29 10 50 | 91 c0 9d 23 19 ac d8 51 |a.,..).P|...#...Q|
|00000750| b4 53 28 ac 40 41 8c 61 | 00 0d 12 f0 d1 40 99 fd |.S(.@A.a|.....@..|
|00000760| f1 f4 4b 89 44 c4 c1 04 | b1 df 30 d0 a5 24 ca 2d |..K.D...|..0..$.-|
|00000770| 30 20 d0 88 2a d3 04 b2 | 65 64 00 6d 60 8c 3d 1c |0 ..*...|ed.m`.=.|
|00000780| 33 00 4b 00 e1 2d 31 30 | 8a 3d f2 f3 01 fd c0 10 |3.K..-10|.=......|
|00000790| 9c 6d 8c 6a 79 20 98 65 | 01 fd fc d0 69 b8 65 b2 |.m.jy .e|....i.e.|
|000007a0| e4 6d e0 99 06 b6 43 25 | 80 2a 00 88 1e 2a 30 08 |.m....C%|.*...*0.|
|000007b0| 11 02 0b 45 a0 74 51 5a | 60 6d 8e 4c 00 50 04 25 |...E.tQZ|`m.L.P.%|
|000007c0| 10 09 f8 1a 81 fc a6 81 | 4e 51 11 02 f9 ff 20 54 |........|NQ.... T|
|000007d0| a8 3c 71 74 57 ea 63 20 | 15 7a b0 8f 80 a4 ea 87 |.<qtW.c |.z......|
|000007e0| 80 a6 87 80 ae 3b c0 01 | 3c 1a bf 00 a0 14 ac 9d |.....;..|<.......|
|000007f0| 2e ff a0 03 3f 3c e4 73 | 63 8c 11 29 10 a0 a1 7f |....?<.s|c..)....|
|00000800| 20 3a 3d 20 30 3b 0d 0a | 20 20 20 20 20 20 65 6e | := 0;..| en|
|00000810| 64 3b 0d 0a 20 20 20 20 | 65 6e 64 3b 0d 0a 20 20 |d;.. |end;.. |
|00000820| 65 6e 64 3b 0d 0a 20 20 | 57 61 69 74 54 6f 47 6f |end;.. |WaitToGo|
|00000830| 3b 0d 0a 65 6e 64 3b 20 | 7b 20 55 73 65 72 4c 69 |;..end; |{ UserLi|
|00000840| 6e 65 53 74 79 6c 65 50 | 6c 61 79 20 7d 0d 0a 0d |neStyleP|lay }...|
|00000850| 0a 0d 0a 70 72 6f 63 65 | 64 75 72 65 20 53 61 79 |...proce|dure Say|
|00000860| 47 6f 6f 64 62 79 65 3b | 0d 0a 7b 20 53 61 79 20 |Goodbye;|..{ Say |
|00000870| 67 6f 6f 64 62 79 65 20 | 61 6e 64 20 74 68 65 6e |goodbye |and then|
|00000880| 20 65 78 69 74 20 74 68 | 65 20 70 72 6f 67 72 61 | exit th|e progra|
|00000890| 6d 20 7d 0d 0a 76 61 72 | 0d 0a 20 20 56 69 65 77 |m }..var|.. View|
|000008a0| 49 6e 66 6f 20 3a 20 56 | 69 65 77 50 6f 72 74 54 |Info : V|iewPortT|
|000008b0| 79 70 65 3b 0d 0a 62 65 | 67 69 6e 0d 0a 20 20 4d |ype;..be|gin.. M|
|000008c0| 61 69 6e 57 69 6e 64 6f | 77 28 27 27 29 3b 0d 0a |ainWindo|w('');..|
|000008d0| 20 20 47 65 74 56 69 65 | 77 53 65 74 74 69 6e 67 | GetVie|wSetting|
|000008e0| 73 28 56 69 65 77 49 6e | 66 6f 29 3b 0d 0a 20 20 |s(ViewIn|fo);.. |
|000008f0| 53 65 74 54 65 78 74 53 | 74 79 6c 65 28 54 72 69 |SetTextS|tyle(Tri|
|00000900| 70 6c 65 78 46 6f 6e 74 | 2c 20 48 6f 72 69 7a 44 |plexFont|, HorizD|
|00000910| 69 72 2c 20 34 29 3b 0d | 0a 20 20 53 65 74 54 65 |ir, 4);.|. SetTe|
|00000920| 78 74 4a 75 73 74 69 66 | 79 28 43 65 6e 74 65 72 |xtJustif|y(Center|
|00000930| 54 65 78 74 2c 20 43 65 | 6e 74 65 72 54 65 78 74 |Text, Ce|nterText|
|00000940| 29 3b 0d 0a 20 20 77 69 | 74 68 20 56 69 65 77 49 |);.. wi|th ViewI|
|00000950| 6e 66 6f 20 64 6f 0d 0a | 20 20 20 20 4f 75 74 54 |nfo do..| OutT|
|00000960| 65 78 74 58 59 28 28 78 | 32 2d 78 31 29 20 64 69 |extXY((x|2-x1) di|
|00000970| 76 20 32 2c 20 28 79 32 | 2d 79 31 29 20 64 69 76 |v 2, (y2|-y1) div|
|00000980| 20 32 2c 20 27 54 68 61 | 74 27 27 73 20 61 6c 6c | 2, 'Tha|t''s all|
|00000990| 20 66 6f 6c 6b 73 21 27 | 29 3b 0d 0a 20 20 53 74 | folks!'|);.. St|
|000009a0| 61 74 75 73 4c 69 6e 65 | 28 27 50 72 65 73 73 20 |atusLine|('Press |
|000009b0| 61 6e 79 20 6b 65 79 20 | 74 6f 20 71 75 69 74 2e |any key |to quit.|
|000009c0| 2e 2e 27 29 3b 0d 0a 20 | 20 72 65 70 65 61 74 20 |..');.. | repeat |
|000009d0| 75 6e 74 69 6c 20 4b 65 | 79 50 72 65 73 73 65 64 |until Ke|yPressed|
|000009e0| 3b 0d 0a 65 6e 64 3b 20 | 7b 20 53 61 79 47 6f 6f |;..end; |{ SayGoo|
|000009f0| 64 62 79 65 20 7d 0d 0a | 0d 0a 0d 0a 50 52 4f 43 |dbye }..|....PROC|
|00000a00| 45 44 55 52 45 20 53 65 | 6c 65 63 74 4d 6f 64 65 |EDURE Se|lectMode|
|00000a10| 3b 0d 0a 56 41 52 0d 0a | 09 63 68 6f 69 63 65 31 |;..VAR..|.choice1|
|00000a20| 2c 63 68 6f 69 63 65 32 | 20 09 3a 20 43 48 41 52 |,choice2| .: CHAR|
|00000a30| 3b 0d 0a 20 20 20 78 73 | 69 7a 65 2c 79 73 69 7a |;.. xs|ize,ysiz|
|00000a40| 65 09 09 09 3a 20 57 4f | 52 44 3b 0d 0a 42 45 47 |e...: WO|RD;..BEG|
|00000a50| 49 4e 0d 0a 09 28 2a 20 | 4c 65 74 27 73 20 73 65 |IN...(* |Let's se|
|00000a60| 6c 65 63 74 20 61 20 6d | 6f 64 65 20 2a 29 0d 0a |lect a m|ode *)..|
|00000a70| 09 43 6c 72 53 63 72 3b | 0d 0a 09 57 72 69 74 65 |.ClrScr;|...Write|
|00000a80| 4c 6e 28 27 56 45 53 41 | 44 45 4d 4f 3a 27 29 3b |Ln('VESA|DEMO:');|
|00000a90| 0d 0a 09 57 72 69 74 65 | 4c 6e 28 27 31 2e 20 32 |...Write|Ln('1. 2|
|00000aa0| 35 36 20 63 6f 6c 6f 72 | 73 27 29 3b 0d 0a 09 57 |56 color|s');...W|
|00000ab0| 72 69 74 65 4c 6e 28 27 | 32 2e 20 33 32 37 36 38 |riteLn('|2. 32768|
|00000ac0| 20 63 6f 6c 6f 72 73 27 | 29 3b 0d 0a 09 57 72 69 | colors'|);...Wri|
|00000ad0| 74 65 4c 6e 28 27 33 2e | 20 36 35 35 33 36 20 63 |teLn('3.| 65536 c|
|00000ae0| 6f 6c 6f 72 73 27 29 3b | 0d 0a 09 57 72 69 74 65 |olors');|...Write|
|00000af0| 4c 6e 28 27 34 2e 20 31 | 36 37 37 37 32 31 36 20 |Ln('4. 1|6777216 |
|00000b00| 63 6f 6c 6f 72 73 27 29 | 3b 0d 0a 09 57 72 69 74 |colors')|;...Writ|
|00000b10| 65 4c 6e 28 27 51 20 75 | 69 74 27 29 3b 0d 0a 09 |eLn('Q u|it');...|
|00000b20| 57 72 69 74 65 4c 6e 3b | 0d 0a 09 57 72 69 74 65 |WriteLn;|...Write|
|00000b30| 28 27 59 6f 75 72 20 63 | 68 6f 69 63 65 3a 20 27 |('Your c|hoice: '|
|00000b40| 29 3b 0d 0a 09 52 45 50 | 45 41 54 0d 0a 09 09 52 |);...REP|EAT....R|
|00000b50| 65 61 64 4c 6e 28 63 68 | 6f 69 63 65 31 29 3b 0d |eadLn(ch|oice1);.|
|00000b60| 0a 20 20 20 20 20 20 49 | 46 20 63 68 6f 69 63 65 |. I|F choice|
|00000b70| 31 20 3c 3e 20 27 31 27 | 20 54 48 45 4e 20 42 45 |1 <> '1'| THEN BE|
|00000b80| 47 49 4e 0d 0a 20 20 20 | 20 20 20 09 57 72 69 74 |GIN.. | .Writ|
|00000b90| 65 4c 6e 28 27 53 6f 72 | 72 79 20 21 27 29 3b 0d |eLn('Sor|ry !');.|
|00000ba0| 0a 20 20 20 20 20 20 20 | 20 20 57 72 69 74 65 4c |. | WriteL|
|00000bb0| 6e 28 27 54 68 69 73 20 | 64 65 6d 6f 20 77 61 73 |n('This |demo was|
|00000bc0| 6e 27 27 74 20 77 72 69 | 74 74 65 6e 20 66 6f 72 |n''t wri|tten for|
|00000bd0| 20 6d 6f 72 65 20 61 73 | 20 32 35 36 20 63 6f 6c | more as| 256 col|
|00000be0| 6f 72 73 20 21 27 29 3b | 0d 0a 20 20 20 20 20 20 |ors !');|.. |
|00000bf0| 20 20 20 57 72 69 74 65 | 4c 6e 28 27 59 6f 75 20 | Write|Ln('You |
|00000c00| 77 6f 75 6c 64 20 6f 6e | 6c 79 20 67 65 74 20 61 |would on|ly get a|
|00000c10| 20 6c 69 6d 69 74 65 64 | 20 69 6d 70 72 65 73 73 | limited| impress|
|00000c20| 69 6f 6e 20 6f 66 20 74 | 68 65 20 48 69 2d 26 20 |ion of t|he Hi-& |
|00000c30| 54 72 75 65 43 6f 6c 6f | 72 20 6d 6f 64 65 73 2e |TrueColo|r modes.|
|00000c40| 2e 2e 27 29 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |..');.. | |
|00000c50| 57 72 69 74 65 4c 6e 28 | 27 53 77 69 74 63 68 69 |WriteLn(|'Switchi|
|00000c60| 6e 67 20 74 6f 20 32 35 | 36 20 63 6f 6c 6f 72 73 |ng to 25|6 colors|
|00000c70| 2e 27 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 63 |.');.. | c|
|00000c80| 68 6f 69 63 65 31 20 3a | 3d 20 27 31 27 3b 0d 0a |hoice1 :|= '1';..|
|00000c90| 20 20 20 20 20 20 45 4e | 44 3b 0d 0a 09 55 4e 54 | EN|D;...UNT|
|00000ca0| 49 4c 20 63 68 6f 69 63 | 65 31 20 49 4e 20 5b 27 |IL choic|e1 IN ['|
|00000cb0| 31 27 2e 2e 27 34 27 2c | 27 71 27 5d 3b 0d 0a 09 |1'..'4',|'q'];...|
|00000cc0| 49 46 20 63 68 6f 69 63 | 65 31 20 3d 20 27 71 27 |IF choic|e1 = 'q'|
|00000cd0| 20 54 48 45 4e 20 48 61 | 6c 74 3b 0d 0a 0d 0a 09 | THEN Ha|lt;.....|
|00000ce0| 57 72 69 74 65 4c 6e 3b | 0d 0a 09 57 72 69 74 65 |WriteLn;|...Write|
|00000cf0| 4c 6e 3b 0d 0a 09 57 72 | 69 74 65 4c 6e 28 27 61 |Ln;...Wr|iteLn('a|
|00000d00| 2e 20 33 32 30 78 32 30 | 30 27 29 3b 0d 0a 09 57 |. 320x20|0');...W|
|00000d10| 72 69 74 65 4c 6e 28 27 | 62 2e 20 36 34 30 78 34 |riteLn('|b. 640x4|
|00000d20| 38 30 27 29 3b 0d 0a 09 | 57 72 69 74 65 4c 6e 28 |80');...|WriteLn(|
|00000d30| 27 63 2e 20 38 30 30 78 | 36 30 30 27 29 3b 0d 0a |'c. 800x|600');..|
|00000d40| 09 57 72 69 74 65 4c 6e | 28 27 64 2e 20 31 30 32 |.WriteLn|('d. 102|
|00000d50| 34 78 37 36 38 27 29 3b | 0d 0a 09 57 72 69 74 65 |4x768');|...Write|
|00000d60| 4c 6e 28 27 65 2e 20 31 | 32 38 30 78 31 30 32 34 |Ln('e. 1|280x1024|
|00000d70| 27 29 3b 0d 0a 09 57 72 | 69 74 65 4c 6e 28 27 51 |');...Wr|iteLn('Q|
|00000d80| 20 75 69 74 27 29 3b 0d | 0a 09 57 72 69 74 65 4c | uit');.|..WriteL|
|00000d90| 6e 3b 0d 0a 09 57 72 69 | 74 65 28 27 59 6f 75 72 |n;...Wri|te('Your|
|00000da0| 20 63 68 6f 69 63 65 3a | 20 27 29 3b 0d 0a 09 52 | choice:| ');...R|
|00000db0| 45 50 45 41 54 0d 0a 09 | 09 52 65 61 64 4c 6e 28 |EPEAT...|.ReadLn(|
|00000dc0| 63 68 6f 69 63 65 32 29 | 3b 0d 0a 09 55 4e 54 49 |choice2)|;...UNTI|
|00000dd0| 4c 20 63 68 6f 69 63 65 | 32 20 49 4e 20 5b 27 61 |L choice|2 IN ['a|
|00000de0| 27 2e 2e 27 65 27 2c 27 | 71 27 5d 3b 0d 0a 09 49 |'..'e','|q'];...I|
|00000df0| 46 20 63 68 6f 69 63 65 | 32 20 3d 20 27 71 27 20 |F choice|2 = 'q' |
|00000e00| 54 48 45 4e 20 48 61 6c | 74 3b 0d 0a 0d 0a 09 43 |THEN Hal|t;.....C|
|00000e10| 41 53 45 20 63 68 6f 69 | 63 65 32 20 4f 46 0d 0a |ASE choi|ce2 OF..|
|00000e20| 09 09 27 61 27 20 3a 20 | 42 45 47 49 4e 0d 0a 09 |..'a' : |BEGIN...|
|00000e30| 09 09 78 73 69 7a 65 20 | 3a 3d 20 33 32 30 3b 0d |..xsize |:= 320;.|
|00000e40| 0a 09 09 09 79 73 69 7a | 65 20 3a 3d 20 32 30 30 |....ysiz|e := 200|
|00000e50| 3b 0d 0a 09 09 45 4e 44 | 3b 0d 0a 09 09 27 62 27 |;....END|;....'b'|
|00000e60| 20 3a 20 42 45 47 49 4e | 0d 0a 09 09 09 78 73 69 | : BEGIN|.....xsi|
|00000e70| 7a 65 20 3a 3d 20 36 34 | 30 3b 0d 0a 09 09 09 79 |ze := 64|0;.....y|
|00000e80| 73 69 7a 65 20 3a 3d 20 | 34 38 30 3b 0d 0a 09 09 |size := |480;....|
|00000e90| 45 4e 44 3b 0d 0a 09 09 | 27 63 27 20 3a 20 42 45 |END;....|'c' : BE|
|00000ea0| 47 49 4e 0d 0a 09 09 09 | 78 73 69 7a 65 20 3a 3d |GIN.....|xsize :=|
|00000eb0| 20 38 30 30 3b 0d 0a 09 | 09 09 79 73 69 7a 65 20 | 800;...|..ysize |
|00000ec0| 3a 3d 20 36 30 30 3b 0d | 0a 09 09 45 4e 44 3b 0d |:= 600;.|...END;.|
|00000ed0| 0a 09 09 27 64 27 20 3a | 20 42 45 47 49 4e 0d 0a |...'d' :| BEGIN..|
|00000ee0| 09 09 09 78 73 69 7a 65 | 20 3a 3d 20 31 30 32 34 |...xsize| := 1024|
|00000ef0| 3b 0d 0a 09 09 09 79 73 | 69 7a 65 20 3a 3d 20 37 |;.....ys|ize := 7|
|00000f00| 36 38 3b 0d 0a 09 09 45 | 4e 44 3b 0d 0a 09 09 27 |68;....E|ND;....'|
|00000f10| 65 27 20 3a 20 42 45 47 | 49 4e 0d 0a 09 09 09 78 |e' : BEG|IN.....x|
|00000f20| 73 69 7a 65 20 3a 3d 20 | 31 32 38 30 3b 0d 0a 09 |size := |1280;...|
|00000f30| 09 09 79 73 69 7a 65 20 | 3a 3d 20 31 30 32 34 3b |..ysize |:= 1024;|
|00000f40| 0d 0a 09 09 45 4e 44 3b | 0d 0a 09 45 4e 44 3b 0d |....END;|...END;.|
|00000f50| 0a 09 43 41 53 45 20 63 | 68 6f 69 63 65 31 20 4f |..CASE c|hoice1 O|
|00000f60| 46 0d 0a 09 09 27 31 27 | 20 3a 20 6d 6f 64 65 20 |F....'1'| : mode |
|00000f70| 3a 3d 20 46 69 6e 64 56 | 65 73 61 4d 6f 64 65 28 |:= FindV|esaMode(|
|00000f80| 78 73 69 7a 65 2c 79 73 | 69 7a 65 2c 38 29 3b 0d |xsize,ys|ize,8);.|
|00000f90| 0a 09 09 27 32 27 20 3a | 20 6d 6f 64 65 20 3a 3d |...'2' :| mode :=|
|00000fa0| 20 46 69 6e 64 56 65 73 | 61 4d 6f 64 65 28 78 73 | FindVes|aMode(xs|
|00000fb0| 69 7a 65 2c 79 73 69 7a | 65 2c 31 35 29 3b 0d 0a |ize,ysiz|e,15);..|
|00000fc0| 09 09 27 33 27 20 3a 20 | 6d 6f 64 65 20 3a 3d 20 |..'3' : |mode := |
|00000fd0| 46 69 6e 64 56 65 73 61 | 4d 6f 64 65 28 78 73 69 |FindVesa|Mode(xsi|
|00000fe0| 7a 65 2c 79 73 69 7a 65 | 2c 31 36 29 3b 0d 0a 09 |ze,ysize|,16);...|
|00000ff0| 09 27 34 27 20 3a 20 6d | 6f 64 65 20 3a 3d 20 46 |.'4' : m|ode := F|
|00001000| 69 6e 64 56 65 73 61 4d | 6f 64 65 28 78 73 69 7a |indVesaM|ode(xsiz|
|00001010| 65 2c 79 73 69 7a 65 2c | 32 34 29 3b 0d 0a 09 45 |e,ysize,|24);...E|
|00001020| 4e 44 3b 0d 0a 09 49 46 | 20 6d 6f 64 65 20 3d 20 |ND;...IF| mode = |
|00001030| 30 20 54 48 45 4e 20 42 | 45 47 49 4e 0d 0a 09 09 |0 THEN B|EGIN....|
|00001040| 57 72 69 74 65 4c 6e 28 | 27 4e 6f 20 73 75 63 68 |WriteLn(|'No such|
|00001050| 20 6d 6f 64 65 20 63 6f | 75 6c 64 20 62 65 20 66 | mode co|uld be f|
|00001060| 6f 75 6e 64 20 21 27 29 | 3b 0d 0a 09 09 57 72 69 |ound !')|;....Wri|
|00001070| 74 65 4c 6e 28 27 53 77 | 69 74 63 68 69 6e 67 20 |teLn('Sw|itching |
|00001080| 74 6f 20 74 6f 20 33 32 | 30 78 32 30 30 2e 27 29 |to to 32|0x200.')|
|00001090| 3b 0d 0a 09 09 52 65 61 | 64 4b 65 79 3b 0d 0a 09 |;....Rea|dKey;...|
|000010a0| 09 6d 6f 64 65 20 3a 3d | 20 56 33 32 30 78 32 30 |.mode :=| V320x20|
|000010b0| 30 78 32 35 36 3b 0d 0a | 09 45 4e 44 3b 0d 0a 45 |0x256;..|.END;..E|
|000010c0| 4e 44 3b 0d 0a 0d 0a 62 | 65 67 69 6e 20 7b 20 70 |ND;....b|egin { p|
|000010d0| 72 6f 67 72 61 6d 20 62 | 6f 64 79 20 7d 0d 0a 20 |rogram b|ody }.. |
|000010e0| 20 53 65 6c 65 63 74 4d | 6f 64 65 3b 0d 0a 20 20 | SelectM|ode;.. |
|000010f0| 49 6e 69 74 69 61 6c 69 | 7a 65 3b 0d 0a 20 20 52 |Initiali|ze;.. R|
|00001100| 65 70 6f 72 74 53 74 61 | 74 75 73 3b 0d 0a 0d 0a |eportSta|tus;....|
|00001110| 7b 20 20 41 73 70 65 63 | 74 52 61 74 69 6f 50 6c |{ Aspec|tRatioPl|
|00001120| 61 79 3b 20 7d 0d 0a 20 | 20 46 69 6c 6c 45 6c 6c |ay; }.. | FillEll|
|00001130| 69 70 73 65 50 6c 61 79 | 3b 0d 0a 20 20 53 65 63 |ipsePlay|;.. Sec|
|00001140| 74 6f 72 50 6c 61 79 3b | 0d 0a 20 20 57 72 69 74 |torPlay;|.. Writ|
|00001150| 65 4d 6f 64 65 50 6c 61 | 79 3b 0d 0a 0d 0a 20 20 |eModePla|y;.... |
|00001160| 43 6f 6c 6f 72 50 6c 61 | 79 3b 0d 0a 20 20 7b 20 |ColorPla|y;.. { |
|00001170| 50 61 6c 65 74 74 65 50 | 6c 61 79 20 6f 6e 6c 79 |PaletteP|lay only|
|00001180| 20 69 6e 74 65 6e 64 65 | 64 20 74 6f 20 77 6f 72 | intende|d to wor|
|00001190| 6b 20 6f 6e 20 74 68 65 | 73 65 20 64 72 69 76 65 |k on the|se drive|
|000011a0| 72 73 3a 20 7d 0d 0a 20 | 20 69 66 20 28 47 72 61 |rs: }.. | if (Gra|
|000011b0| 70 68 44 72 69 76 65 72 | 20 3d 20 45 47 41 29 20 |phDriver| = EGA) |
|000011c0| 6f 72 0d 0a 09 20 20 28 | 47 72 61 70 68 44 72 69 |or... (|GraphDri|
|000011d0| 76 65 72 20 3d 20 45 47 | 41 36 34 29 20 6f 72 0d |ver = EG|A64) or.|
|000011e0| 0a 09 20 20 28 47 72 61 | 70 68 44 72 69 76 65 72 |.. (Gra|phDriver|
|000011f0| 20 3d 20 56 47 41 29 20 | 74 68 65 6e 0d 0a 09 20 | = VGA) |then... |
|00001200| 50 61 6c 65 74 74 65 50 | 6c 61 79 3b 0d 0a 20 20 |PaletteP|lay;.. |
|00001210| 50 75 74 50 69 78 65 6c | 50 6c 61 79 3b 0d 0a 7b |PutPixel|Play;..{|
|00001220| 20 20 50 75 74 49 6d 61 | 67 65 50 6c 61 79 3b 20 | PutIma|gePlay; |
|00001230| 7d 0d 0a 20 20 52 61 6e | 64 42 61 72 50 6c 61 79 |}.. Ran|dBarPlay|
|00001240| 3b 0d 0a 20 20 42 61 72 | 50 6c 61 79 3b 0d 0a 20 |;.. Bar|Play;.. |
|00001250| 20 42 61 72 33 44 50 6c | 61 79 3b 0d 0a 20 20 41 | Bar3DPl|ay;.. A|
|00001260| 72 63 50 6c 61 79 3b 0d | 0a 20 20 43 69 72 63 6c |rcPlay;.|. Circl|
|00001270| 65 50 6c 61 79 3b 0d 0a | 20 20 50 69 65 50 6c 61 |ePlay;..| PiePla|
|00001280| 79 3b 0d 0a 20 20 4c 69 | 6e 65 54 6f 50 6c 61 79 |y;.. Li|neToPlay|
|00001290| 3b 0d 0a 20 20 4c 69 6e | 65 52 65 6c 50 6c 61 79 |;.. Lin|eRelPlay|
|000012a0| 3b 0d 0a 7b 20 20 4c 69 | 6e 65 53 74 79 6c 65 50 |;..{ Li|neStyleP|
|000012b0| 6c 61 79 3b 20 7d 0d 0a | 7b 20 20 55 73 65 72 4c |lay; }..|{ UserL|
|000012c0| 69 6e 65 53 74 79 6c 65 | 50 6c 61 79 3b 20 7d 0d |ineStyle|Play; }.|
|000012d0| 0a 20 20 54 65 78 74 44 | 75 6d 70 3b 0d 0a 20 20 |. TextD|ump;.. |
|000012e0| 54 65 78 74 50 6c 61 79 | 3b 0d 0a 20 20 43 72 74 |TextPlay|;.. Crt|
|000012f0| 4d 6f 64 65 50 6c 61 79 | 3b 0d 0a 20 20 46 69 6c |ModePlay|;.. Fil|
|00001300| 6c 53 74 79 6c 65 50 6c | 61 79 3b 0d 0a 20 20 46 |lStylePl|ay;.. F|
|00001310| 69 6c 6c 50 61 74 74 65 | 72 6e 50 6c 61 79 3b 0d |illPatte|rnPlay;.|
|00001320| 0a 20 20 50 6f 6c 79 50 | 6c 61 79 3b 0d 0a 20 20 |. PolyP|lay;.. |
|00001330| 53 61 79 47 6f 6f 64 62 | 79 65 3b 0d 0a 7b 20 20 |SayGoodb|ye;..{ |
|00001340| 43 6c 6f 73 65 47 72 61 | 70 68 3b 20 7d 0d 0a 20 |CloseGra|ph; }.. |
|00001350| 20 43 6c 6f 73 65 56 65 | 73 61 3b 0d 0a 65 6e 64 | CloseVe|sa;..end|
|00001360| 2e 0d 0a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...*****|********|
|00001370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001380| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001390| 2a 2a 2a 2a 2a 2a 0d 0a | 09 27 2a 20 53 48 4f 57 |******..|.'* SHOW|
|000013a0| 20 44 32 52 4f 54 41 54 | 45 20 28 41 42 4f 55 54 | D2ROTAT|E (ABOUT|
|000013b0| 20 54 48 45 20 4f 52 49 | 47 49 4e 29 0d 0a 09 27 | THE ORI|GIN)...'|
|000013c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001400| ec d2 f3 63 f3 2a ed 8a | 23 5e b3 76 2f d5 3a 6a |...c.*..|#^.v/.:j|
|00001410| cd ed 30 74 2b 6c 04 b2 | 93 22 aa 1f 22 03 0e 67 |..0t+l..|.".."..g|
|00001420| c0 f0 3f 25 a6 88 19 e4 | 14 b3 48 d7 ab d7 bd c3 |..?%....|..H.....|
|00001430| a8 55 27 d5 a9 17 f5 00 | ff e1 04 56 3f ca 0d aa |.U'.....|...V?...|
|00001440| 08 75 6a 4f e8 87 45 0e | 5a 31 ec de 21 0b dc 42 |.ujO..E.|Z1..!..B|
|00001450| be e4 38 15 ba 91 5d 31 | 47 6c 4e 9a bf 71 dd b2 |..8...]1|GlN..q..|
|00001460| 3b 93 24 e8 7a 45 3c 14 | 63 a6 2a 62 45 93 1c 23 |;.$.zE<.|c.*bE..#|
|00001470| 84 cf a4 8f 22 ef c4 4c | 72 06 64 61 99 0c cc 1c |...."..L|r.da....|
|00001480| 01 a7 d7 61 5e 9d 9c 86 | ce 31 7e 29 40 16 89 99 |...a^...|.1~)@...|
|00001490| 4d eb d7 30 cd 36 44 84 | 46 88 aa 80 76 c5 e1 d0 |M..0.6D.|F...v...|
|000014a0| 6b 10 91 70 1b e7 01 05 | 1e d8 90 29 7d 1d a6 ff |k..p....|...)}...|
|000014b0| 15 31 77 33 d1 cf 81 f5 | 9d d6 68 b2 12 b9 f7 8b |.1w3....|..h.....|
|000014c0| 8f 04 61 a5 5b 54 fc 48 | 71 a6 90 bc 44 4b 8e c4 |..a.[T.H|q...DK..|
|000014d0| 59 02 2d 19 ec 74 54 d1 | e9 d0 a7 c7 d8 2e 2a 80 |Y.-..tT.|......*.|
|000014e0| 49 39 6c e8 f7 7b e3 e7 | 63 e5 24 e7 e3 e1 6f 46 |I9l..{..|c.$...oF|
|000014f0| 72 d8 d0 ef c5 c6 c7 3b | 4f 32 fe 65 fd 4c 9a 34 |r......;|O2.e.L.4|
|00001500| 5e 4e 7c d8 ab 8f 4f 3f | c9 f8 12 46 4f 7a 60 02 |^N|...O?|...FOz`.|
|00001510| c7 c7 c7 7f 27 3c 3e 3e | e3 24 e3 e9 97 36 fa 0d |....'<>>|.$...6..|
|00001520| 58 67 8c b7 b3 f8 6f 8c | eb e3 47 9f 64 bc df b0 |Xg....o.|..G.d...|
|00001530| 3f 0e fe d8 c9 5f 39 4c | ff 1d f5 14 93 fc 71 27 |?...._9L|......q'|
|00001540| 91 4f df 9f 6e 34 c9 df | c8 dc c5 33 70 05 e7 2e |.O..n4..|...3p...|
|00001550| 95 4f f8 7f 0e 1b fa 7d | f6 b8 fc f1 27 91 4f 3f |.O.....}|....'.O?|
|00001560| a1 74 b3 21 fb 38 e1 a5 | f3 2f bf b9 70 c5 f2 d9 |.t.!.8..|./..p...|
|00001570| 45 05 cb 56 18 6f 78 b8 | 63 e8 82 35 c7 c8 a7 d3 |E..V.ox.|c..5....|
|00001580| 24 3f fb 24 f2 e9 5a ee | 16 73 8c f0 86 8d e2 70 |$?.$..Z.|.s.....p|
|00001590| 4b 97 1c 9b 17 8b e1 ff | 58 d2 ff 39 c6 f7 5c e6 |K.......|X..9..\.|
|000015a0| 6b b4 4f 9d 5f ff 35 9a | 12 94 5c f3 82 8e da d1 |k.O._.5.|..\.....|
|000015b0| 41 5b d1 98 a0 8b c5 82 | 4e fc 8f 75 31 36 09 67 |A[......|N..u16.g|
|000015c0| 2c 25 68 63 d3 d0 63 44 | d0 56 8b d9 52 9b 19 94 |,%hc..cD|.V..R...|
|000015d0| 4b a4 52 3b 38 ee a0 e4 | b6 0f d8 a2 73 d1 e3 b5 |K.R;8...|....s...|
|000015e0| a0 14 c0 8a 78 67 7a 50 | 8e 4d 16 a3 14 d7 79 e0 |....xgzP|.M....y.|
|000015f0| a7 08 90 2b e5 4a 9b 18 | 69 2b b2 83 33 d2 18 09 |...+.J..|i+..3...|
|00001600| cd a5 d3 8c 5e a7 05 47 | b2 db 00 e3 82 72 00 ed |....^..G|.....r..|
|00001610| 87 73 20 25 23 28 bb f4 | 3f c5 25 75 38 f0 36 05 |.s %#(..|?.%u8.6.|
|00001620| 2b 51 90 29 29 95 29 41 | 66 77 f7 b9 d8 29 42 26 |+Q.)).)A|fw...)B&|
|00001630| 34 b0 11 86 4c 58 56 3a | 12 eb 84 1c 74 40 8f 2e |4...LXV:|....t@..|
|00001640| 3b 35 e8 66 b6 8e 74 bf | e4 4a 01 d7 11 c4 55 1f |;5.f..t.|.J....U.|
|00001650| 38 a3 80 c7 82 1e 13 94 | 9c b8 12 70 c9 c1 f4 76 |8.......|...p...v|
|00001660| 67 d0 ce d2 82 f6 d8 b9 | c2 07 e2 49 2e 87 f0 5e |g.......|...I...^|
|00001670| 76 d1 5a e8 80 26 05 20 | d5 da 12 36 a4 93 36 58 |v.Z..&. |...6..6X|
|00001680| e1 00 4e 0f 8a b5 ce 45 | 9e a5 0a 6b 49 a7 cc dc |..N....E|...kI...|
|00001690| 41 1a 2b b9 d2 82 62 fd | 74 91 2d 14 59 07 ad ab |A.+...b.|t.-.Y...|
|000016a0| e0 a5 61 cd 75 75 8c 80 | 15 b6 e0 88 76 68 75 a6 |..a.uu..|....vhu.|
|000016b0| b5 53 8f b4 76 8a 97 a3 | 9d 46 3b 70 3c 64 a9 12 |.S..v...|.F;p<d..|
|000016c0| 1c 01 2f 46 c4 64 03 db | 82 54 25 b2 4b e8 06 96 |../F.d..|.T%.K...|
|000016d0| 11 3d 71 fe 94 49 bf 0c | bf cc 36 53 24 b1 f6 0e |.=q..I..|..6S$...|
|000016e0| c8 45 4e ea 9d 46 96 39 | c9 da 52 27 bc 20 cf ed |.EN..F.9|..R'. ..|
|000016f0| c0 14 3f 67 c2 6a b2 30 | cd 2f 62 12 b7 17 9e c4 |..?g.j.0|./b.....|
|00001700| 6d 96 82 b6 13 da af 98 | 8e 89 2f fa 3c 82 95 fe |m.......|../.<...|
|00001710| b0 d1 1f c7 b6 c3 58 e5 | 3a d2 50 33 e9 22 ce 4c |......X.|:.P3.".L|
|00001720| 91 73 ed b0 da 16 94 53 | 94 21 bb 07 a8 2a 6d 4e |.s.....S|.!...*mN|
|00001730| 9c 57 06 e4 80 13 9c b4 | 7e 17 23 bb 91 91 12 f2 |.W......|~.#.....|
|00001740| 52 ea a2 68 3a 85 dd 2e | 91 f7 b8 dd 76 9c 1d 84 |R..h:...|....v...|
|00001750| 85 64 b1 85 d5 c3 3d b0 | b7 e3 ba 24 68 6f 77 05 |.d....=.|...$how.|
|00001760| 65 67 2a ce 09 36 97 dc | 9f 1a 93 b8 ed b0 99 b6 |eg*..6..|........|
|00001770| 71 e9 11 44 3e 28 77 40 | a3 4b ee 48 0f 92 be 94 |q..D>(w@|.K.H....|
|00001780| a3 e4 03 55 0a 82 9a 52 | c9 12 d1 57 dc 03 8a 88 |...U...R|...W....|
|00001790| 20 32 1f 4d 25 1f a2 2e | b2 53 4e 99 41 31 97 4a | 2.M%...|.SN.A1.J|
|000017a0| 45 b6 ba 6c 5d b2 a8 3e | 5c 25 c0 8f 34 e1 4f dc |E..l]..>|\%..4.O.|
|000017b0| 17 9c 83 a9 26 1d ff 88 | 2f 29 38 76 05 53 50 df |....&...|/)8v.SP.|
|000017c0| b2 93 fc 91 1e 91 fb 81 | fb a5 8e 61 f4 83 c8 04 |........|...a....|
|000017d0| 34 53 d6 c7 50 2d 0b 3f | e4 a0 b8 b2 4e 91 2a 71 |4S..P-.?|....N.*q|
|000017e0| b5 55 e9 08 b2 14 f7 00 | 13 5e a4 fa 49 2e 72 a3 |.U......|.^..I.r.|
|000017f0| 52 26 24 59 11 5e c8 25 | 8a f0 42 da 17 f7 43 16 |R&$Y.^.%|..B...C.|
|00001800| 65 61 74 0d 0a 20 20 20 | 20 43 6f 6c 6f 72 20 3a |eat.. | Color :|
|00001810| 3d 20 52 61 6e 64 43 6f | 6c 6f 72 3b 0d 0a 20 20 |= RandCo|lor;.. |
|00001820| 20 20 53 65 74 43 6f 6c | 6f 72 28 43 6f 6c 6f 72 | SetCol|or(Color|
|00001830| 29 3b 0d 0a 20 20 20 20 | 53 65 74 46 69 6c 6c 53 |);.. |SetFillS|
|00001840| 74 79 6c 65 28 52 61 6e | 64 6f 6d 28 43 6c 6f 73 |tyle(Ran|dom(Clos|
|00001850| 65 44 6f 74 46 69 6c 6c | 29 2b 31 2c 20 43 6f 6c |eDotFill|)+1, Col|
|00001860| 6f 72 29 3b 0d 0a 20 20 | 20 20 42 61 72 33 44 28 |or);.. | Bar3D(|
|00001870| 52 61 6e 64 6f 6d 28 4d | 61 78 57 69 64 74 68 29 |Random(M|axWidth)|
|00001880| 2c 20 52 61 6e 64 6f 6d | 28 4d 61 78 48 65 69 67 |, Random|(MaxHeig|
|00001890| 68 74 29 2c 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ht),.. | |
|000018a0| 52 61 6e 64 6f 6d 28 4d | 61 78 57 69 64 74 68 29 |Random(M|axWidth)|
|000018b0| 2c 20 52 61 6e 64 6f 6d | 28 4d 61 78 48 65 69 67 |, Random|(MaxHeig|
|000018c0| 68 74 29 2c 20 30 2c 20 | 54 6f 70 4f 66 66 29 3b |ht), 0, |TopOff);|
|000018d0| 0d 0a 20 20 75 6e 74 69 | 6c 20 4b 65 79 50 72 65 |.. unti|l KeyPre|
|000018e0| 73 73 65 64 3b 0d 0a 20 | 20 57 61 69 74 54 6f 47 |ssed;.. | WaitToG|
|000018f0| 6f 3b 0d 0a 65 6e 64 3b | 20 7b 20 52 61 6e 64 42 |o;..end;| { RandB|
|00001900| 61 72 50 6c 61 79 20 7d | 0d 0a 0d 0a 70 72 6f 63 |arPlay }|....proc|
|00001910| 65 64 75 72 65 20 41 72 | 63 50 6c 61 79 3b 0d 0a |edure Ar|cPlay;..|
|00001920| 7b 20 44 72 61 77 20 72 | 61 6e 64 6f 6d 20 61 72 |{ Draw r|andom ar|
|00001930| 63 73 20 6f 6e 20 74 68 | 65 20 73 63 72 65 65 6e |cs on th|e screen|
|00001940| 20 7d 0d 0a 76 61 72 0d | 0a 20 20 4d 61 78 52 61 | }..var.|. MaxRa|
|00001950| 64 69 75 73 20 3a 20 77 | 6f 72 64 3b 0d 0a 20 20 |dius : w|ord;.. |
|00001960| 45 6e 64 41 6e 67 6c 65 | 20 3a 20 77 6f 72 64 3b |EndAngle| : word;|
|00001970| 0d 0a 20 20 41 72 63 49 | 6e 66 6f 20 3a 20 41 72 |.. ArcI|nfo : Ar|
|00001980| 63 43 6f 6f 72 64 73 54 | 79 70 65 3b 0d 0a 62 65 |cCoordsT|ype;..be|
|00001990| 67 69 6e 0d 0a 20 20 4d | 61 69 6e 57 69 6e 64 6f |gin.. M|ainWindo|
|000019a0| 77 28 27 41 72 63 20 2f | 20 47 65 74 41 72 63 43 |w('Arc /| GetArcC|
|000019b0| 6f 6f 72 64 73 20 64 65 | 6d 6f 6e 73 74 72 61 74 |oords de|monstrat|
|000019c0| 69 6f 6e 27 29 3b 0d 0a | 20 20 53 74 61 74 75 73 |ion');..| Status|
|000019d0| 4c 69 6e 65 28 27 45 73 | 63 20 61 62 6f 72 74 73 |Line('Es|c aborts|
|000019e0| 20 6f 72 20 70 72 65 73 | 73 20 61 20 6b 65 79 27 | or pres|s a key'|
|000019f0| 29 3b 0d 0a 20 20 4d 61 | 78 52 61 64 69 75 73 20 |);.. Ma|xRadius |
|00001a00| 3a 3d 20 4d 61 78 59 20 | 64 69 76 20 31 30 3b 0d |:= MaxY |div 10;.|
|00001a10| 0a 20 20 72 65 70 65 61 | 74 0d 0a 20 20 20 20 53 |. repea|t.. S|
|00001a20| 65 74 43 6f 6c 6f 72 28 | 52 61 6e 64 43 6f 6c 6f |etColor(|RandColo|
|00001a30| 72 29 3b 0d 0a 20 20 20 | 20 45 6e 64 41 6e 67 6c |r);.. | EndAngl|
|00001a40| 65 20 3a 3d 20 52 61 6e | 64 6f 6d 28 33 36 30 29 |e := Ran|dom(360)|
|00001a50| 3b 0d 0a 20 20 20 20 53 | 65 74 4c 69 6e 65 53 74 |;.. S|etLineSt|
|00001a60| 79 6c 65 28 53 6f 6c 69 | 64 4c 6e 2c 20 30 2c 20 |yle(Soli|dLn, 0, |
|00001a70| 4e 6f 72 6d 57 69 64 74 | 68 29 3b 0d 0a 20 20 20 |NormWidt|h);.. |
|00001a80| 20 41 72 63 28 52 61 6e | 64 6f 6d 28 4d 61 78 58 | Arc(Ran|dom(MaxX|
|00001a90| 29 2c 20 52 61 6e 64 6f | 6d 28 4d 61 78 59 29 2c |), Rando|m(MaxY),|
|00001aa0| 20 52 61 6e 64 6f 6d 28 | 45 6e 64 41 6e 67 6c 65 | Random(|EndAngle|
|00001ab0| 29 2c 20 45 6e 64 41 6e | 67 6c 65 2c 20 52 61 6e |), EndAn|gle, Ran|
|00001ac0| 64 6f 6d 28 4d 61 78 52 | 61 64 69 75 73 29 29 3b |dom(MaxR|adius));|
|00001ad0| 0d 0a 20 20 20 20 47 65 | 74 41 72 63 43 6f 6f 72 |.. Ge|tArcCoor|
|00001ae0| 64 73 28 41 72 63 49 6e | 66 6f 29 3b 0d 0a 20 20 |ds(ArcIn|fo);.. |
|00001af0| 20 20 77 69 74 68 20 41 | 72 63 49 6e 66 6f 20 64 | with A|rcInfo d|
|00001b00| 6f 0d 0a 20 20 20 20 62 | 65 67 69 6e 0d 0a 20 20 |o.. b|egin.. |
|00001b10| 20 20 20 20 4c 69 6e 65 | 28 58 2c 20 59 2c 20 58 | Line|(X, Y, X|
|00001b20| 53 74 61 72 74 2c 20 59 | 53 74 61 72 74 29 3b 0d |Start, Y|Start);.|
|00001b30| 0a 20 20 20 20 20 20 4c | 69 6e 65 28 58 2c 20 59 |. L|ine(X, Y|
|00001b40| 2c 20 58 65 6e 64 2c 20 | 59 65 6e 64 29 3b 0d 0a |, Xend, |Yend);..|
|00001b50| 20 20 20 20 65 6e 64 3b | 0d 0a 20 20 75 6e 74 69 | end;|.. unti|
|00001b60| 6c 20 4b 65 79 50 72 65 | 73 73 65 64 3b 0d 0a 20 |l KeyPre|ssed;.. |
|00001b70| 20 57 61 69 74 54 6f 47 | 6f 3b 0d 0a 65 6e 64 3b | WaitToG|o;..end;|
|00001b80| 20 7b 20 41 72 63 50 6c | 61 79 20 7d 0d 0a 0d 0a | { ArcPl|ay }....|
|00001b90| 70 72 6f 63 65 64 75 72 | 65 20 50 75 74 50 69 78 |procedur|e PutPix|
|00001ba0| 65 6c 50 6c 61 79 3b 0d | 0a 7b 20 44 65 6d 6f 6e |elPlay;.|.{ Demon|
|00001bb0| 73 74 72 61 74 65 20 74 | 68 65 20 50 75 74 50 69 |strate t|he PutPi|
|00001bc0| 78 65 6c 20 61 6e 64 20 | 47 65 74 50 69 78 65 6c |xel and |GetPixel|
|00001bd0| 20 63 6f 6d 6d 61 6e 64 | 73 20 7d 0d 0a 63 6f 6e | command|s }..con|
|00001be0| 73 74 0d 0a 20 20 53 65 | 65 64 20 20 20 3d 20 31 |st.. Se|ed = 1|
|00001bf0| 39 36 32 3b 20 7b 20 41 | 20 73 65 65 64 20 66 6f |962; { A| seed fo|
|00001c00| 72 20 74 68 65 20 72 61 | 6e 64 6f 6d 20 6e 75 6d |r the ra|ndom num|
|00001c10| 62 65 72 20 67 65 6e 65 | 72 61 74 6f 72 20 7d 0d |ber gene|rator }.|
|00001c20| 0a 20 20 4e 75 6d 50 74 | 73 20 3d 20 32 30 30 30 |. NumPt|s = 2000|
|00001c30| 3b 20 7b 20 54 68 65 20 | 6e 75 6d 62 65 72 20 6f |; { The |number o|
|00001c40| 66 20 70 69 78 65 6c 73 | 20 70 6c 6f 74 74 65 64 |f pixels| plotted|
|00001c50| 20 7d 0d 0a 20 20 45 73 | 63 20 20 20 20 3d 20 23 | }.. Es|c = #|
|00001c60| 32 37 3b 0d 0a 76 61 72 | 0d 0a 20 20 49 20 3a 20 |27;..var|.. I : |
|00001c70| 77 6f 72 64 3b 0d 0a 20 | 20 58 2c 20 59 2c 20 43 |word;.. | X, Y, C|
|00001c80| 6f 6c 6f 72 20 3a 20 77 | 6f 72 64 3b 0d 0a 20 20 |olor : w|ord;.. |
|00001c90| 58 4d 61 78 2c 20 59 4d | 61 78 20 20 3a 20 69 6e |XMax, YM|ax : in|
|00001ca0| 74 65 67 65 72 3b 0d 0a | 20 20 56 69 65 77 49 6e |teger;..| ViewIn|
|00001cb0| 66 6f 20 20 20 20 3a 20 | 56 69 65 77 50 6f 72 74 |fo : |ViewPort|
|00001cc0| 54 79 70 65 3b 0d 0a 62 | 65 67 69 6e 0d 0a 20 20 |Type;..b|egin.. |
|00001cd0| 4d 61 69 6e 57 69 6e 64 | 6f 77 28 27 50 75 74 50 |MainWind|ow('PutP|
|00001ce0| 69 78 65 6c 20 2f 20 47 | 65 74 50 69 78 65 6c 20 |ixel / G|etPixel |
|00001cf0| 64 65 6d 6f 6e 73 74 72 | 61 74 69 6f 6e 27 29 3b |demonstr|ation');|
|00001d00| 0d 0a 20 20 53 74 61 74 | 75 73 4c 69 6e 65 28 27 |.. Stat|usLine('|
|00001d10| 45 73 63 20 61 62 6f 72 | 74 73 20 6f 72 20 70 72 |Esc abor|ts or pr|
|00001d20| 65 73 73 20 61 20 6b 65 | 79 2e 2e 2e 27 29 3b 0d |ess a ke|y...');.|
|00001d30| 0a 0d 0a 20 20 47 65 74 | 56 69 65 77 53 65 74 74 |... Get|ViewSett|
|00001d40| 69 6e 67 73 28 56 69 65 | 77 49 6e 66 6f 29 3b 0d |ings(Vie|wInfo);.|
|00001d50| 0a 20 20 77 69 74 68 20 | 56 69 65 77 49 6e 66 6f |. with |ViewInfo|
|00001d60| 20 64 6f 0d 0a 20 20 62 | 65 67 69 6e 0d 0a 20 20 | do.. b|egin.. |
|00001d70| 20 20 58 4d 61 78 20 3a | 3d 20 28 78 32 2d 78 31 | XMax :|= (x2-x1|
|00001d80| 2d 31 29 3b 0d 0a 20 20 | 20 20 59 4d 61 78 20 3a |-1);.. | YMax :|
|00001d90| 3d 20 28 79 32 2d 79 31 | 2d 31 29 3b 0d 0a 20 20 |= (y2-y1|-1);.. |
|00001da0| 65 6e 64 3b 0d 0a 0d 0a | 20 20 77 68 69 6c 65 20 |end;....| while |
|00001db0| 6e 6f 74 20 4b 65 79 50 | 72 65 73 73 65 64 20 64 |not KeyP|ressed d|
|00001dc0| 6f 0d 0a 20 20 62 65 67 | 69 6e 0d 0a 20 20 20 20 |o.. beg|in.. |
|00001dd0| 7b 20 50 6c 6f 74 20 72 | 61 6e 64 6f 6d 20 70 69 |{ Plot r|andom pi|
|00001de0| 78 65 6c 73 20 7d 0d 0a | 20 20 20 20 52 61 6e 64 |xels }..| Rand|
|00001df0| 53 65 65 64 20 3a 3d 20 | 53 65 65 64 3b 0d 0a 20 |Seed := |Seed;.. |
|00001e00| 20 20 20 49 20 3a 3d 20 | 30 3b 0d 0a 20 20 20 20 | I := |0;.. |
|00001e10| 77 68 69 6c 65 20 28 6e | 6f 74 20 4b 65 79 50 72 |while (n|ot KeyPr|
|00001e20| 65 73 73 65 64 29 20 61 | 6e 64 20 28 49 20 3c 20 |essed) a|nd (I < |
|00001e30| 4e 75 6d 50 74 73 29 20 | 64 6f 0d 0a 20 20 20 20 |NumPts) |do.. |
|00001e40| 62 65 67 69 6e 0d 0a 20 | 20 20 20 20 20 49 6e 63 |begin.. | Inc|
|00001e50| 28 49 29 3b 0d 0a 09 09 | 50 75 74 50 69 78 65 6c |(I);....|PutPixel|
|00001e60| 28 52 61 6e 64 6f 6d 28 | 58 4d 61 78 29 2b 31 2c |(Random(|XMax)+1,|
|00001e70| 20 52 61 6e 64 6f 6d 28 | 59 4d 61 78 29 2b 31 2c | Random(|YMax)+1,|
|00001e80| 20 52 61 6e 64 43 6f 6c | 6f 72 29 3b 0d 0a 20 20 | RandCol|or);.. |
|00001e90| 20 20 65 6e 64 3b 0d 0a | 0d 0a 20 20 20 20 7b 20 | end;..|.. { |
|00001ea0| 45 72 61 73 65 20 70 69 | 78 65 6c 73 20 7d 0d 0a |Erase pi|xels }..|
|00001eb0| 20 20 20 20 52 61 6e 64 | 53 65 65 64 20 3a 3d 20 | Rand|Seed := |
|00001ec0| 53 65 65 64 3b 0d 0a 20 | 20 20 20 49 20 3a 3d 20 |Seed;.. | I := |
|00001ed0| 30 3b 0d 0a 20 20 20 20 | 77 68 69 6c 65 20 28 6e |0;.. |while (n|
|00001ee0| 6f 74 20 4b 65 79 50 72 | 65 73 73 65 64 29 20 61 |ot KeyPr|essed) a|
|00001ef0| 6e 64 20 28 49 20 3c 20 | 4e 75 6d 50 74 73 29 20 |nd (I < |NumPts) |
|00001f00| 64 6f 0d 0a 20 20 20 20 | 62 65 67 69 6e 0d 0a 20 |do.. |begin.. |
|00001f10| 20 20 20 20 20 49 6e 63 | 28 49 29 3b 0d 0a 20 20 | Inc|(I);.. |
|00001f20| 20 20 20 20 58 20 3a 3d | 20 52 61 6e 64 6f 6d 28 | X :=| Random(|
|00001f30| 58 4d 61 78 29 2b 31 3b | 0d 0a 20 20 20 20 20 20 |XMax)+1;|.. |
|00001f40| 59 20 3a 3d 20 52 61 6e | 64 6f 6d 28 59 4d 61 78 |Y := Ran|dom(YMax|
|00001f50| 29 2b 31 3b 0d 0a 20 20 | 20 20 20 20 43 6f 6c 6f |)+1;.. | Colo|
|00001f60| 72 20 3a 3d 20 47 65 74 | 50 69 78 65 6c 28 58 2c |r := Get|Pixel(X,|
|00001f70| 20 59 29 3b 0d 0a 09 09 | 69 66 20 43 6f 6c 6f 72 | Y);....|if Color|
|00001f80| 20 3d 20 52 61 6e 64 43 | 6f 6c 6f 72 20 74 68 65 | = RandC|olor the|
|00001f90| 6e 0d 0a 09 09 20 20 50 | 75 74 50 69 78 65 6c 28 |n.... P|utPixel(|
|00001fa0| 58 2c 20 59 2c 20 30 29 | 3b 0d 0a 09 20 65 6e 64 |X, Y, 0)|;... end|
|00001fb0| 3b 0d 0a 20 20 65 6e 64 | 3b 0d 0a 20 20 57 61 69 |;.. end|;.. Wai|
|00001fc0| 74 54 6f 47 6f 3b 0d 0a | 65 6e 64 3b 20 7b 20 50 |tToGo;..|end; { P|
|00001fd0| 75 74 50 69 78 65 6c 50 | 6c 61 79 20 7d 0d 0a 0d |utPixelP|lay }...|
|00001fe0| 0a 70 72 6f 63 65 64 75 | 72 65 20 50 75 74 49 6d |.procedu|re PutIm|
|00001ff0| 61 67 65 50 6c 61 79 3b | 0d 0a 7b 20 44 65 6d 6f |agePlay;|..{ Demo|
|00002000| 6e 73 74 72 61 74 65 20 | 74 68 65 20 47 65 74 49 |nstrate |the GetI|
|00002010| 6d 61 67 65 20 61 6e 64 | 20 50 75 74 49 6d 61 67 |mage and| PutImag|
|00002020| 65 20 63 6f 6d 6d 61 6e | 64 73 20 7d 0d 0a 0d 0a |e comman|ds }....|
|00002030| 63 6f 6e 73 74 0d 0a 20 | 20 72 20 20 3d 20 32 30 |const.. | r = 20|
|00002040| 3b 0d 0a 20 20 53 74 61 | 72 74 58 20 3d 20 31 30 |;.. Sta|rtX = 10|
|00002050| 30 3b 0d 0a 20 20 53 74 | 61 72 74 59 20 3d 20 35 |0;.. St|artY = 5|
|00002060| 30 3b 0d 0a 0d 0a 76 61 | 72 0d 0a 20 20 43 75 72 |0;....va|r.. Cur|
|00002070| 50 6f 72 74 20 3a 20 56 | 69 65 77 50 6f 72 74 54 |Port : V|iewPortT|
|00002080| 79 70 65 3b 0d 0a 0d 0a | 70 72 6f 63 65 64 75 72 |ype;....|procedur|
|00002090| 65 20 4d 6f 76 65 53 61 | 75 63 65 72 28 76 61 72 |e MoveSa|ucer(var|
|000020a0| 20 58 2c 20 59 20 3a 20 | 69 6e 74 65 67 65 72 3b | X, Y : |integer;|
|000020b0| 20 57 69 64 74 68 2c 20 | 48 65 69 67 68 74 20 3a | Width, |Height :|
|000020c0| 20 69 6e 74 65 67 65 72 | 29 3b 0d 0a 76 61 72 0d | integer|);..var.|
|000020d0| 0a 20 20 53 74 65 70 20 | 3a 20 69 6e 74 65 67 65 |. Step |: intege|
|000020e0| 72 3b 0d 0a 62 65 67 69 | 6e 0d 0a 20 20 53 74 65 |r;..begi|n.. Ste|
|000020f0| 70 20 3a 3d 20 52 61 6e | 64 6f 6d 28 32 2a 72 29 |p := Ran|dom(2*r)|
|00002100| 3b 0d 0a 20 20 69 66 20 | 4f 64 64 28 53 74 65 70 |;.. if |Odd(Step|
|00002110| 29 20 74 68 65 6e 0d 0a | 20 20 20 20 53 74 65 70 |) then..| Step|
|00002120| 20 3a 3d 20 2d 53 74 65 | 70 3b 0d 0a 20 20 58 20 | := -Ste|p;.. X |
|00002130| 3a 3d 20 58 20 2b 20 53 | 74 65 70 3b 0d 0a 20 20 |:= X + S|tep;.. |
|00002140| 53 74 65 70 20 3a 3d 20 | 52 61 6e 64 6f 6d 28 72 |Step := |Random(r|
|00002150| 29 3b 0d 0a 20 20 69 66 | 20 4f 64 64 28 53 74 65 |);.. if| Odd(Ste|
|00002160| 70 29 20 74 68 65 6e 0d | 0a 20 20 20 20 53 74 65 |p) then.|. Ste|
|00002170| 70 20 3a 3d 20 2d 53 74 | 65 70 3b 0d 0a 20 20 59 |p := -St|ep;.. Y|
|00002180| 20 3a 3d 20 59 20 2b 20 | 53 74 65 70 3b 0d 0a 0d | := Y + |Step;...|
|00002190| 0a 20 20 7b 20 4d 61 6b | 65 20 73 61 75 63 65 72 |. { Mak|e saucer|
|000021a0| 20 62 6f 75 6e 63 65 20 | 6f 66 66 20 76 69 65 77 | bounce |off view|
|000021b0| 70 6f 72 74 20 77 61 6c | 6c 73 20 7d 0d 0a 20 20 |port wal|ls }.. |
|000021c0| 77 69 74 68 20 43 75 72 | 50 6f 72 74 20 64 6f 0d |with Cur|Port do.|
|000021d0| 0a 20 20 62 65 67 69 6e | 0d 0a 20 20 20 20 69 66 |. begin|.. if|
|000021e0| 20 28 78 31 20 2b 20 58 | 20 2b 20 57 69 64 74 68 | (x1 + X| + Width|
|000021f0| 20 2d 20 31 20 3e 20 78 | 32 29 20 74 68 65 6e 0d | - 1 > x|2) then.|
|00002200| 0a 20 20 20 20 20 20 58 | 20 3a 3d 20 78 32 2d 78 |. X| := x2-x|
|00002210| 31 20 2d 20 57 69 64 74 | 68 20 2b 20 31 0d 0a 20 |1 - Widt|h + 1.. |
|00002220| 20 20 20 65 6c 73 65 0d | 0a 20 20 20 20 20 20 69 | else.|. i|
|00002230| 66 20 28 58 20 3c 20 30 | 29 20 74 68 65 6e 0d 0a |f (X < 0|) then..|
|00002240| 20 20 20 20 20 20 20 20 | 58 20 3a 3d 20 30 3b 0d | |X := 0;.|
|00002250| 0a 20 20 20 20 69 66 20 | 28 79 31 20 2b 20 59 20 |. if |(y1 + Y |
|00002260| 2b 20 48 65 69 67 68 74 | 20 2d 20 31 20 3e 20 79 |+ Height| - 1 > y|
|00002270| 32 29 20 74 68 65 6e 0d | 0a 20 20 20 20 20 20 59 |2) then.|. Y|
|00002280| 20 3a 3d 20 79 32 2d 79 | 31 20 2d 20 48 65 69 67 | := y2-y|1 - Heig|
|00002290| 68 74 20 2b 20 31 0d 0a | 20 20 20 20 65 6c 73 65 |ht + 1..| else|
|000022a0| 0d 0a 20 20 20 20 20 20 | 69 66 20 28 59 20 3c 20 |.. |if (Y < |
|000022b0| 30 29 20 74 68 65 6e 0d | 0a 20 20 20 20 20 20 20 |0) then.|. |
|000022c0| 20 59 20 3a 3d 20 30 3b | 0d 0a 20 20 65 6e 64 3b | Y := 0;|.. end;|
|000022d0| 0d 0a 65 6e 64 3b 20 7b | 20 4d 6f 76 65 53 61 75 |..end; {| MoveSau|
|000022e0| 63 65 72 20 7d 0d 0a 0d | 0a 76 61 72 0d 0a 20 20 |cer }...|.var.. |
|000022f0| 50 61 75 73 65 74 69 6d | 65 20 3a 20 77 6f 72 64 |Pausetim|e : word|
|00002300| 3b 0d 0a 20 20 53 61 75 | 63 65 72 20 20 20 20 3a |;.. Sau|cer :|
|00002310| 20 70 6f 69 6e 74 65 72 | 3b 0d 0a 20 20 58 2c 20 | pointer|;.. X, |
|00002320| 59 20 20 20 20 20 20 3a | 20 69 6e 74 65 67 65 72 |Y :| integer|
|00002330| 3b 0d 0a 20 20 75 6c 78 | 2c 20 75 6c 79 20 20 3a |;.. ulx|, uly :|
|00002340| 20 77 6f 72 64 3b 0d 0a | 20 20 6c 72 78 2c 20 6c | word;..| lrx, l|
|00002350| 72 79 20 20 3a 20 77 6f | 72 64 3b 0d 0a 20 20 53 |ry : wo|rd;.. S|
|00002360| 69 7a 65 20 20 20 20 20 | 20 3a 20 77 6f 72 64 3b |ize | : word;|
|00002370| 0d 0a 20 20 49 20 20 20 | 20 20 20 20 20 20 3a 20 |.. I | : |
|00002380| 77 6f 72 64 3b 0d 0a 62 | 65 67 69 6e 0d 0a 20 20 |word;..b|egin.. |
|00002390| 43 6c 65 61 72 44 65 76 | 69 63 65 3b 0d 0a 20 20 |ClearDev|ice;.. |
|000023a0| 46 75 6c 6c 50 6f 72 74 | 3b 0d 0a 0d 0a 20 20 7b |FullPort|;.... {|
|000023b0| 20 50 61 69 6e 74 53 63 | 72 65 65 6e 20 7d 0d 0a | PaintSc|reen }..|
|000023c0| 20 20 43 6c 65 61 72 44 | 65 76 69 63 65 3b 0d 0a | ClearD|evice;..|
|000023d0| 20 20 4d 61 69 6e 57 69 | 6e 64 6f 77 28 27 47 65 | MainWi|ndow('Ge|
|000023e0| 74 49 6d 61 67 65 20 2f | 20 50 75 74 49 6d 61 67 |tImage /| PutImag|
|000023f0| 65 20 44 65 6d 6f 6e 73 | 74 72 61 74 69 6f 6e 27 |e Demons|tration'|
|00002400| 29 3b 0d 0a 20 20 53 74 | 61 74 75 73 4c 69 6e 65 |);.. St|atusLine|
|00002410| 28 27 45 73 63 20 61 62 | 6f 72 74 73 20 6f 72 20 |('Esc ab|orts or |
|00002420| 70 72 65 73 73 20 61 20 | 6b 65 79 2e 2e 2e 27 29 |press a |key...')|
|00002430| 3b 0d 0a 20 20 47 65 74 | 56 69 65 77 53 65 74 74 |;.. Get|ViewSett|
|00002440| 69 6e 67 73 28 43 75 72 | 50 6f 72 74 29 3b 0d 0a |ings(Cur|Port);..|
|00002450| 0d 0a 20 20 7b 20 44 72 | 61 77 53 61 75 63 65 72 |.. { Dr|awSaucer|
|00002460| 20 7d 0d 0a 20 20 45 6c | 6c 69 70 73 65 28 53 74 | }.. El|lipse(St|
|00002470| 61 72 74 58 2c 20 53 74 | 61 72 74 59 2c 20 30 2c |artX, St|artY, 0,|
|00002480| 20 33 36 30 2c 20 72 2c | 20 28 72 20 64 69 76 20 | 360, r,| (r div |
|00002490| 33 29 2b 32 29 3b 0d 0a | 20 20 45 6c 6c 69 70 73 |3)+2);..| Ellips|
|000024a0| 65 28 53 74 61 72 74 58 | 2c 20 53 74 61 72 74 59 |e(StartX|, StartY|
|000024b0| 2d 34 2c 20 31 39 30 2c | 20 33 35 37 2c 20 72 2c |-4, 190,| 357, r,|
|000024c0| 20 72 20 64 69 76 20 33 | 29 3b 0d 0a 20 20 4c 69 | r div 3|);.. Li|
|000024d0| 6e 65 28 53 74 61 72 74 | 58 2b 37 2c 20 53 74 61 |ne(Start|X+7, Sta|
|000024e0| 72 74 59 2d 36 2c 20 53 | 74 61 72 74 58 2b 31 30 |rtY-6, S|tartX+10|
|000024f0| 2c 20 53 74 61 72 74 59 | 2d 31 32 29 3b 0d 0a 20 |, StartY|-12);.. |
|00002500| 20 43 69 72 63 6c 65 28 | 53 74 61 72 74 58 2b 31 | Circle(|StartX+1|
|00002510| 30 2c 20 53 74 61 72 74 | 59 2d 31 32 2c 20 32 29 |0, Start|Y-12, 2)|
|00002520| 3b 0d 0a 20 20 4c 69 6e | 65 28 53 74 61 72 74 58 |;.. Lin|e(StartX|
|00002530| 2d 37 2c 20 53 74 61 72 | 74 59 2d 36 2c 20 53 74 |-7, Star|tY-6, St|
|00002540| 61 72 74 58 2d 31 30 2c | 20 53 74 61 72 74 59 2d |artX-10,| StartY-|
|00002550| 31 32 29 3b 0d 0a 20 20 | 43 69 72 63 6c 65 28 53 |12);.. |Circle(S|
|00002560| 74 61 72 74 58 2d 31 30 | 2c 20 53 74 61 72 74 59 |tartX-10|, StartY|
|00002570| 2d 31 32 2c 20 32 29 3b | 0d 0a 20 20 53 65 74 46 |-12, 2);|.. SetF|
|00002580| 69 6c 6c 53 74 79 6c 65 | 28 53 6f 6c 69 64 46 69 |illStyle|(SolidFi|
|00002590| 6c 6c 2c 20 4d 61 78 43 | 6f 6c 6f 72 29 3b 0d 0a |ll, MaxC|olor);..|
|000025a0| 20 20 46 6c 6f 6f 64 46 | 69 6c 6c 28 53 74 61 72 | FloodF|ill(Star|
|000025b0| 74 58 2b 31 2c 20 53 74 | 61 72 74 59 2b 34 2c 20 |tX+1, St|artY+4, |
|000025c0| 47 65 74 43 6f 6c 6f 72 | 29 3b 0d 0a 0d 0a 20 20 |GetColor|);.... |
|000025d0| 7b 20 52 65 61 64 53 61 | 75 63 65 72 49 6d 61 67 |{ ReadSa|ucerImag|
|000025e0| 65 20 7d 0d 0a 20 20 75 | 6c 78 20 3a 3d 20 53 74 |e }.. u|lx := St|
|000025f0| 61 72 74 58 2d 28 72 2b | 31 29 3b 0d 0a 20 20 75 |artX-(r+|1);.. u|
|00002600| 6c 79 20 3a 3d 20 53 74 | 61 72 74 59 2d 31 34 3b |ly := St|artY-14;|
|00002610| 0d 0a 20 20 6c 72 78 20 | 3a 3d 20 53 74 61 72 74 |.. lrx |:= Start|
|00002620| 58 2b 28 72 2b 31 29 3b | 0d 0a 20 20 6c 72 79 20 |X+(r+1);|.. lry |
|00002630| 3a 3d 20 53 74 61 72 74 | 59 2b 28 72 20 64 69 76 |:= Start|Y+(r div|
|00002640| 20 33 29 2b 33 3b 0d 0a | 0d 0a 20 20 53 69 7a 65 | 3)+3;..|.. Size|
|00002650| 20 3a 3d 20 49 6d 61 67 | 65 53 69 7a 65 28 75 6c | := Imag|eSize(ul|
|00002660| 78 2c 20 75 6c 79 2c 20 | 6c 72 78 2c 20 6c 72 79 |x, uly, |lrx, lry|
|00002670| 29 3b 0d 0a 20 20 47 65 | 74 4d 65 6d 28 53 61 75 |);.. Ge|tMem(Sau|
|00002680| 63 65 72 2c 20 53 69 7a | 65 29 3b 0d 0a 20 20 47 |cer, Siz|e);.. G|
|00002690| 65 74 49 6d 61 67 65 28 | 75 6c 78 2c 20 75 6c 79 |etImage(|ulx, uly|
|000026a0| 2c 20 6c 72 78 2c 20 6c | 72 79 2c 20 53 61 75 63 |, lrx, l|ry, Sauc|
|000026b0| 65 72 5e 29 3b 0d 0a 7b | 20 20 50 75 74 49 6d 61 |er^);..{| PutIma|
|000026c0| 67 65 28 75 6c 78 2c 20 | 75 6c 79 2c 20 53 61 75 |ge(ulx, |uly, Sau|
|000026d0| 63 65 72 5e 2c 20 58 4f | 52 70 75 74 29 3b 20 20 |cer^, XO|Rput); |
|000026e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 7b 20 65 | | { e|
|000026f0| 72 61 73 65 20 69 6d 61 | 67 65 20 7d 0d 0a 0d 0a |rase ima|ge }....|
|00002700| 20 20 7b 20 50 6c 6f 74 | 20 73 6f 6d 65 20 22 73 | { Plot| some "s|
|00002710| 74 61 72 73 22 20 7d 0d | 0a 20 20 66 6f 72 20 49 |tars" }.|. for I|
|00002720| 20 3a 3d 20 31 20 74 6f | 20 31 30 30 30 20 64 6f | := 1 to| 1000 do|
|00002730| 0d 0a 09 20 50 75 74 50 | 69 78 65 6c 28 52 61 6e |... PutP|ixel(Ran|
|00002740| 64 6f 6d 28 4d 61 78 58 | 29 2c 20 52 61 6e 64 6f |dom(MaxX|), Rando|
|00002750| 6d 28 4d 61 78 59 29 2c | 20 52 61 6e 64 43 6f 6c |m(MaxY),| RandCol|
|00002760| 6f 72 29 3b 0d 0a 20 20 | 58 20 3a 3d 20 4d 61 78 |or);.. |X := Max|
|00002770| 58 20 64 69 76 20 32 3b | 0d 0a 20 20 59 20 3a 3d |X div 2;|.. Y :=|
|00002780| 20 4d 61 78 59 20 64 69 | 76 20 32 3b 0d 0a 20 20 | MaxY di|v 2;.. |
|00002790| 50 61 75 73 65 54 69 6d | 65 20 3a 3d 20 37 30 3b |PauseTim|e := 70;|
|000027a0| 0d 0a 0d 0a 20 20 7b 20 | 4d 6f 76 65 20 74 68 65 |.... { |Move the|
|000027b0| 20 73 61 75 63 65 72 20 | 61 72 6f 75 6e 64 20 7d | saucer |around }|
|000027c0| 0d 0a 20 20 72 65 70 65 | 61 74 0d 0a 7b 09 20 50 |.. repe|at..{. P|
|000027d0| 75 74 49 6d 61 67 65 28 | 58 2c 20 59 2c 20 53 61 |utImage(|X, Y, Sa|
|000027e0| 75 63 65 72 5e 2c 20 58 | 4f 52 70 75 74 29 3b 20 |ucer^, X|ORput); |
|000027f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002800| 7b 20 64 72 61 77 20 69 | 6d 61 67 65 20 7d 0d 0a |{ draw i|mage }..|
|00002810| 09 20 44 65 6c 61 79 28 | 50 61 75 73 65 54 69 6d |. Delay(|PauseTim|
|00002820| 65 29 3b 0d 0a 7b 09 20 | 50 75 74 49 6d 61 67 65 |e);..{. |PutImage|
|00002830| 28 58 2c 20 59 2c 20 53 | 61 75 63 65 72 5e 2c 20 |(X, Y, S|aucer^, |
|00002840| 58 4f 52 70 75 74 29 3b | 20 20 20 20 20 20 20 20 |XORput);| |
|00002850| 20 20 20 20 20 20 20 20 | 20 7b 20 65 72 61 73 65 | | { erase|
|00002860| 20 69 6d 61 67 65 20 7d | 0d 0a 09 20 4d 6f 76 65 | image }|... Move|
|00002870| 53 61 75 63 65 72 28 58 | 2c 20 59 2c 20 6c 72 78 |Saucer(X|, Y, lrx|
|00002880| 20 2d 20 75 6c 78 20 2b | 20 31 2c 20 6c 72 79 20 | - ulx +| 1, lry |
|00002890| 2d 20 75 6c 79 20 2b 20 | 31 29 3b 20 20 7b 20 77 |- uly + |1); { w|
|000028a0| 69 64 74 68 2f 68 65 69 | 67 68 74 20 7d 0d 0a 20 |idth/hei|ght }.. |
|000028b0| 20 75 6e 74 69 6c 20 4b | 65 79 50 72 65 73 73 65 | until K|eyPresse|
|000028c0| 64 3b 0d 0a 20 20 46 72 | 65 65 4d 65 6d 28 53 61 |d;.. Fr|eeMem(Sa|
|000028d0| 75 63 65 72 2c 20 73 69 | 7a 65 29 3b 0d 0a 20 20 |ucer, si|ze);.. |
|000028e0| 57 61 69 74 54 6f 47 6f | 3b 0d 0a 65 6e 64 3b 20 |WaitToGo|;..end; |
|000028f0| 7b 20 50 75 74 49 6d 61 | 67 65 50 6c 61 79 20 7d |{ PutIma|gePlay }|
|00002900| 0d 0a 0d 0a 70 72 6f 63 | 65 64 75 72 65 20 50 6f |....proc|edure Po|
|00002910| 6c 79 50 6c 61 79 3b 0d | 0a 7b 20 44 72 61 77 20 |lyPlay;.|.{ Draw |
|00002920| 72 61 6e 64 6f 6d 20 70 | 6f 6c 79 67 6f 6e 73 20 |random p|olygons |
|00002930| 77 69 74 68 20 72 61 6e | 64 6f 6d 20 66 69 6c 6c |with ran|dom fill|
|00002940| 20 73 74 79 6c 65 73 20 | 6f 6e 20 74 68 65 20 73 | styles |on the s|
|00002950| 63 72 65 65 6e 20 7d 0d | 0a 63 6f 6e 73 74 0d 0a |creen }.|.const..|
|00002960| 20 20 4d 61 78 50 74 73 | 20 3d 20 35 3b 0d 0a 74 | MaxPts| = 5;..t|
|00002970| 79 70 65 0d 0a 20 20 50 | 6f 6c 79 67 6f 6e 54 79 |ype.. P|olygonTy|
|00002980| 70 65 20 3d 20 61 72 72 | 61 79 5b 31 2e 2e 4d 61 |pe = arr|ay[1..Ma|
|00002990| 78 50 74 73 5d 20 6f 66 | 20 50 6f 69 6e 74 54 79 |xPts] of| PointTy|
|000029a0| 70 65 3b 0d 0a 76 61 72 | 0d 0a 20 20 50 6f 6c 79 |pe;..var|.. Poly|
|000029b0| 20 3a 20 50 6f 6c 79 67 | 6f 6e 54 79 70 65 3b 0d | : Polyg|onType;.|
|000029c0| 0a 20 20 49 2c 20 43 6f | 6c 6f 72 20 3a 20 77 6f |. I, Co|lor : wo|
|000029d0| 72 64 3b 0d 0a 62 65 67 | 69 6e 0d 0a 20 20 4d 61 |rd;..beg|in.. Ma|
|000029e0| 69 6e 57 69 6e 64 6f 77 | 28 27 46 69 6c 6c 50 6f |inWindow|('FillPo|
|000029f0| 6c 79 20 64 65 6d 6f 6e | 73 74 72 61 74 69 6f 6e |ly demon|stration|
|00002a00| 27 29 3b 0d 0a 20 20 53 | 74 61 74 75 73 4c 69 6e |');.. S|tatusLin|
|00002a10| 65 28 27 45 73 63 20 61 | 62 6f 72 74 73 20 6f 72 |e('Esc a|borts or|
|00002a20| 20 70 72 65 73 73 20 61 | 20 6b 65 79 2e 2e 2e 27 | press a| key...'|
|00002a30| 29 3b 0d 0a 20 20 72 65 | 70 65 61 74 0d 0a 20 20 |);.. re|peat.. |
|00002a40| 20 20 43 6f 6c 6f 72 20 | 3a 3d 20 52 61 6e 64 43 | Color |:= RandC|
|00002a50| 6f 6c 6f 72 3b 0d 0a 20 | 20 20 20 53 65 74 46 69 |olor;.. | SetFi|
|00002a60| 6c 6c 53 74 79 6c 65 28 | 52 61 6e 64 6f 6d 28 31 |llStyle(|Random(1|
|00002a70| 31 29 2b 31 2c 20 43 6f | 6c 6f 72 29 3b 0d 0a 20 |1)+1, Co|lor);.. |
|00002a80| 20 20 20 53 65 74 43 6f | 6c 6f 72 28 43 6f 6c 6f | SetCo|lor(Colo|
|00002a90| 72 29 3b 0d 0a 20 20 20 | 20 66 6f 72 20 49 20 3a |r);.. | for I :|
|00002aa0| 3d 20 31 20 74 6f 20 4d | 61 78 50 74 73 20 64 6f |= 1 to M|axPts do|
|00002ab0| 0d 0a 20 20 20 20 20 20 | 77 69 74 68 20 50 6f 6c |.. |with Pol|
|00002ac0| 79 5b 49 5d 20 64 6f 0d | 0a 20 20 20 20 20 20 62 |y[I] do.|. b|
|00002ad0| 65 67 69 6e 0d 0a 20 20 | 20 20 20 20 20 20 58 20 |egin.. | X |
|00002ae0| 3a 3d 20 52 61 6e 64 6f | 6d 28 4d 61 78 58 29 3b |:= Rando|m(MaxX);|
|00002af0| 0d 0a 20 20 20 20 20 20 | 20 20 59 20 3a 3d 20 52 |.. | Y := R|
|00002b00| 61 6e 64 6f 6d 28 4d 61 | 78 59 29 3b 0d 0a 20 20 |andom(Ma|xY);.. |
|00002b10| 20 20 20 20 65 6e 64 3b | 0d 0a 20 20 20 20 46 69 | end;|.. Fi|
|00002b20| 6c 6c 50 6f 6c 79 28 4d | 61 78 50 74 73 2c 20 50 |llPoly(M|axPts, P|
|00002b30| 6f 6c 79 29 3b 0d 0a 20 | 20 75 6e 74 69 6c 20 4b |oly);.. | until K|
|00002b40| 65 79 50 72 65 73 73 65 | 64 3b 0d 0a 20 20 57 61 |eyPresse|d;.. Wa|
|00002b50| 69 74 54 6f 47 6f 3b 0d | 0a 65 6e 64 3b 20 7b 20 |itToGo;.|.end; { |
|00002b60| 50 6f 6c 79 50 6c 61 79 | 20 7d 0d 0a 0d 0a 70 72 |PolyPlay| }....pr|
|00002b70| 6f 63 65 64 75 72 65 20 | 46 69 6c 6c 53 74 79 6c |ocedure |FillStyl|
|00002b80| 65 50 6c 61 79 3b 0d 0a | 7b 20 44 69 73 70 6c 61 |ePlay;..|{ Displa|
|00002b90| 79 20 61 6c 6c 20 6f 66 | 20 74 68 65 20 70 72 65 |y all of| the pre|
|00002ba0| 64 65 66 69 6e 65 64 20 | 66 69 6c 6c 20 |defined |fill |
+--------+-------------------------+-------------------------+--------+--------+
